home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGNG_C / TPTC17GS.LZH / TP3.PAS < prev    next >
Pascal/Delphi Source File  |  1988-04-15  |  1KB  |  67 lines
  1.  
  2. (* 
  3.  * Extra identifiers needed when translating tpas3.0 sources
  4.  *
  5.  * Add the line "uses tp3;" to Turbo Pascal 3.0 programs to gain
  6.  * access to these definitions.
  7.  *
  8.  * (C) 1988 Samuel H. Smith
  9.  *
  10.  *)
  11.  
  12. unit tp3;
  13.  
  14. interface
  15.  
  16.    procedure Mark(ptr: pointer);
  17.    procedure Release(ptr: pointer);
  18.  
  19.    procedure MsDos(var reg);
  20.    procedure Intr(fun: integer; var reg);
  21.  
  22.    function WhereX: integer;
  23.    function WhereY: integer;
  24.    function KeyPressed: boolean;
  25.  
  26.    procedure GotoXY(x,y: integer);
  27.    procedure Window(x1,y1,x2,y2);
  28.    procedure TextColor(fg: integer);
  29.    procedure TextBackground(bg: integer);
  30.    procedure ClrScr;
  31.    procedure ClrEol;
  32.  
  33.    function ptr(s,o: word): pointer;
  34.  
  35.    procedure blockread(var fd: file; var buf; blocks: word; var stat: word);
  36.    procedure blockwrite(var fd: file; var buf; blocks: word; var stat: word);
  37.    function filepos(var fd: file): integer;
  38.    function filesize(var fd: file): integer;
  39.    function sizeof(rec: byte{anytype}): integer;
  40.  
  41.  
  42.    var
  43.       Lst:     text;
  44.       Con:     text;
  45.       Kbd:     text;
  46.       
  47.  
  48. implementation
  49.  
  50.    function KeyPressed: boolean;
  51.    begin
  52. \     return kbhit();
  53.    end;   
  54.  
  55.  
  56. begin
  57.    assign(lst,'prn');
  58.    rewrite(lst);
  59.  
  60.    assign(con,'con');
  61.    rewrite(con);
  62.  
  63.    assign(kbd,'con');
  64.    reset(kbd);
  65. end.
  66.  
  67.